Select Code to Download

[root@testrhel AFAStest]# perl test2.pl #Right now $hash

...
Scalar value @hash{'AirIATA'} better written as $hash{'AirIATA'} at te
+st2.pl line 12.
P
C

#!/usr/bin/perl
use warnings;
...
                $count++;
        }
}

#!/usr/bin/perl
use warnings;
...
print $letter1,"\n",$letter2,"\n";