#!/usr/local/bin/perl

# new line at the end of each print, automatically
$\ = "\n";

$num = 2;
($n,$x,$y,$z) = qw/ ${\$num} "camels" spit far/;

print "$n $x $y $z";

($w,$x,$y,$z) = qw(blue 1 10-10 5.5);

print "$w $x $y $z";