Statement Perl

#!/usr/bin/perl -w
($one, $two, $three) = (1..3);
print "$one $two $three\n";