my($a, @list);
push(@list, 1, 2, 3);
$a = push(@list, 1)
