Select Code to Download

#!/usr/bin/perl  
use warnings;
## To find lowest value and to call by reference:  
...
# To extract corresponding animal name from Array names:  
print"\n The animal names are (should be Cow & Rat): ".$names[$i]."\n"
+; 
exit;

C:\Users\x>cd desktop
C:\Users\x\Desktop>key1.pl

...
 Positions of Lowest Value(2)= 4 (should be 2 & 4)

 The animal names are (should be Cow & Rat): Rat

Lowest value= 2

Positions of Lowest Value(2)= 2  4 (should be 2 & 4)

The animal names are (should be Cow & Rat): Cow Rat