#!/usr/bin/perl

use warnings;
use strict;

sub test {
    my @c = qw(a b c d);
    my @d = (1 .. 4);
    return (@c, @d);
}

my @a;
my @b;

(@a, @b) = &test();

foreach my $i (@a) {
    print "$i\n";
}