my (undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, undef, $dst, $service, undef, undef, undef) = split /;/; # split() works on $_ if only one argument is given.