php perl 的list比较

php
$my_array = array("Dog","Cat","Horse");
list($a, $b, $c) = $my_array;

perl
my ($hh, $mm, $ss) =  split /\s/,$_;