Select Code to Download

use Modern::Perl;

...
say "Positions of Lowest Value ($lowest) = @{$hash{$lowest}}";
print 'The animal names are: ';
print join ' ', map $names[$_], @{$hash{$lowest}};

Positions of Lowest Value (2) = 2 4
The animal names are: Cow Rat