#!/usr/bin/perl

@x=(1,2,3,"five",6); #we created the list

for ($i=0;$i<@x;$i=$i+1) { #step through with $i=0,1,2,.. till size
    print "$i: $x[$i]\n"; #print the index and the value
}