Select Code to Download

#!/usr/bin/perl 
use strict;
...
my ($animals1, $animals2) = values($pig, $cow);
is ($animals1,  3, "Checking animals1");
is ($animals2,  4, "Checking animals2");