Help for this page

Select Code to Download

Select or download this

#! perl
use Modern::Perl;
...
    printf "Lowest value: %d, index: %d, corresponding name: %s\n",
            $min_val, $_, $names[$_];
}

Select or download this

18:01 >perl 429_SoPW.pl
Lowest value: 2, index: 2, corresponding name: Cow
Lowest value: 2, index: 4, corresponding name: Rat

18:03 >