Select Code to Download

#! perl
use strict;
...
{
    print "$i: ", $animals{pets}->[$i], "\n";
}

 1:43 >perl 857_SoPW.pl
0: cat
...
2: hamster

 1:43 >