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