$_ = "dog cat frog bird hamster";

($a, $b, @rest) = split;

# $a = "dog";
# $b = "cat";
# @rest = qw(frog bird hamster);
#  OR
# rest[0] = "frog";
# rest[1] = "bird";
# rest[2] = "hamster";