use hash to find dup

#!/usr/bin/perl -w$direct=$ARGV[0];system ("sh /home/fzhao/txt/1.sh $direct");$count=0;$dup=0;$all=0;$len=0;@b=();%hash;open my $fh , '<' ,'1';open my $fh2 , '>>' ,'11';while (my $line=<$fh>) {    @array =split (/\s+/,$line);    if ( $direct==0 )     {          $hsRas=$array[14];     }    else    {          $hsRas=$array[15];    }    $all++;    $flag=0;    $key=0;    for $key (keys %hash)    {         if ( $key eq  $hsRas )         {            $dup++;            $flag=1;            last;         }    }    $hash{$key} =1;    if ( $flag == 0)    {        print $fh2 "$hsRas\n";        $count++;    }}close ($fh);close ($fh2);print "all=$all;dup=$dup;count=$count \n";