$ cat x.pl
use strict;
use warnings;
my ($m,$n,$o,$p) = 1 .. 10;
print "m=$m, n=$n, o=$o, p=$p\n";

$ perl x.pl
m=1, n=2, o=3, p=4