Select Code to Download

use strict;
use warnings;
...
        print "==> $f->[0]\n"; #infix Arrow Operator dereferencing..
        #print "==> @{$f}[0]\n"; #another way of dereferencing too..(T
+ry It)
}

for (my $i=0;$i<=$#ary; $i++){   
    print "==>$ary[$i][0]\n";
   # print "==>@{$ary[$i]}[0]\n";
   # print "==>$ary[$i]->[0]\n";
    }