Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
printf "%2d: %s\n", $_->[1], $_->[0] for @good;

__END__