trapd00r · April 4, 2011 09:43
diff --git a/for_numbered_array b/for_numbered_array
 #!/usr/bin/perl
 use strict;
 use warnings FATAL => 'all';

 my @fruits = qw(orange apple pear pineapple blueberry);

 for my $i(keys(@fruits)) {
  printf("%d: %s\n", $i + 1, $fruits[$i]);
 }
	#!/usr/bin/perl
	use strict;
	use warnings FATAL => 'all';

	my @fruits = qw(orange apple pear pineapple blueberry);

	for my $i(keys(@fruits)) {
	printf("%d: %s\n", $i + 1, $fruits[$i]);
	}