#!/usr/bin/perl -w
use strict;
my (@a,@b) = getlists();
print join(" ",@a),"\n",join(" ",@b);

sub getlists {
    my @foo = (1,2,3);
    my @bar = (4,5,6);
    return @foo,@bar;
}