@stuff = qw[ cat dog pig cow ]; 
print "$_\n" for sort { rand() <=> rand() } @stuff