#!/usr/bin/perl 
 
use strict; 
use warnings; 
use Getopt::Std; 
use vars qw/ %opt /; 
 
getopts('c:', \%opt); 
my $chars = $opt{c}; 
 
my $dict = "dict.txt"; 
 
open FILE, $dict; 
 
TEST: while (my $word = <FILE>) { 
        chomp $word; 
        if ($word =~ /^[$chars]*$/) { 
 
                my @characters = split(//,$chars); 
 
                for (my $i=0;$i<length($word);$i++) { 
                        my $char = substr($word,$i,1); 
                        my @index = grep { $characters[$_] eq $char } 0 .. $#characters; 
                        if ($index[0]) { 
                                delete $characters[$index[0]]; 
                        } 
                        else { 
                                next TEST; 
                        } 
                } 
                print "found: $word\n"; 
        } 
}