#!/usr/bin/perl -w

($one, $two, $three) = (1..3);

print "$one $two $three\n";