my($a, @list);
$a = shift(@list);
shift(@list);
$a = shift
