unscrambles scrambled words using a dictionary - Perl Code Bank

                #!/usr/bin/perl
# usage: unscramble.pl scrambled_list_file word_list_file
use strict;

main(@ARGV);

sub main{
	my $scrambled_file = shift;
	my $wordlist_file = shift;
	open my $fh,"<$wordlist_file" or die "cannot open the file: $!";
	my @wordlist = <$fh>;
	close $fh;
	open my $fh,"<$scrambled_file" or die "cannot open the file: $!";
	my @scrambled = <$fh>;
	close $fh;
	foreach my $scrambled (@scrambled){
		$scrambled =~ s/\r\n//g;
		$scrambled =~ s/\n//g;
		print $scrambled. " -> ";
		my @chars = split '',$scrambled;
		foreach my $word (@wordlist){
			$word =~ s/\r\n//g;
			$word =~ s/\n//g;
			my $flag = 1;
			if (length $word == length $scrambled){
				foreach my $char (@chars){
					if (not $word =~ /[$char]/){
						$flag = 0;
						next;
					}
				}
				my $allchars = "0123456789abcdefghijklmnopqrstuvwxyz";
				$allchars =~ s/[@chars]//g;
				my @nochars = split '',$allchars;
				foreach my $char (@nochars){
					if ($word =~ /[$char]/){
						$flag = 0;
						next;
					}
				}
				if ($flag == 1){
					print $word ."\n";
				}
			}
		}
	}
}