#!/usr/bin/perl -w

my $a = 1;
my $b = 2;
my $c = 3;
my $d = 4;
my $e;

print "$a $b $c $d $e\n";
print "$e $a $b $c $d\n";