use strict;
use warnings;


my @ary = (  #First Dimension
        ['Jan', 10, 20],  #second Dimension
        ['Feb', 15, 25],
        ['Mar', 30, 33]

        );

foreach my $f (@ary)
{
        print "==> $f->[0]\n"; #infix Arrow Operator dereferencing..
        #print "==> @{$f}[0]\n"; #another way of dereferencing too..(Try It)
}

##</code><code>##

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

##</code><code>##