#!/usr/bin/perl

@ary = (
        ['Jan', 10, 20],
        ['Feb', 15, 25],
        ['Mar', 30, 33]);

foreach $f (@ary[0])
{
        print "==> $f\n";
}