Setting elements in a list to equal the corresponding elements of another list with three different names
#!/usr/bin/perl -w ($one, $two, $three) = (1..3); print "$one $two $three\n";