argc: 2 argv: ./wrap
file opened
wootread done
clear(277): #!/usr/bin/perl

$input = $ARGV[0] or die "hakusanaa ei määritelty ;<";
@ar = ("pena","esa","string","kimmo","pekka");

foreach (@ar){
    $hash{$_} = 1;
    print "$_ ";
}

if (exists $hash{$input}){
    print "\nlöytyy $input.\n";
}
else {
    print "\nei löyty.\n";
}



size: 277
writing 58 chars into file
enc  (58): �r�C��aAa���Q        c���������P�K�v6��8�&"��@Tn��a'�K�d�
dec  (58): #!/usr/bin/perl

$input = $ARGV[0] or die "hakusanaa ei m�
MAKING NEW ITERATION FROM THE CRYPTED FILE!!
file opened
wootread done
encfile: �r�C��aAa���Q  c���������P�K�v6��8�&"��@Tn��a'�K�d��äritelty ;<";
@ar = ("pena","esa","string","kimmo","pekka");

foreac


decfile: #!/usr/bin/perl

$input = $ARGV[0] or die "hakusanaa ei m�