my $count = 0;

foreach my $line (@line) { # these are defined in my script
$count++;
print $count; #  prepend all the requires 0s.

}