my ($a,$b,$c); my $n1 = ($a,$b,$c) = split /,/, "1,2,3,4,5"; my $n2 = my @x = ($a,$b,$c) = split /,/, "1,2,3,4,5"; print "$n1 ... $n2\n"; ---- 4 ... 3