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)
}