my $c = 0;
for(@a){
    print "$c: $_\n";
    $c++;
}