#!/usr/bin/perl
@a=(one,two,three,four);
for ( $i=0; $i<=$#a; $i++){
    print "$i\t$a[$i]\n";
}