#/usr/local/bin/perl

use strict;
use warnings;

main();

sub main {
    second(first());
}

sub first {
    my @ret = qw (from first sub);
    return (@ret);
}

sub second {
    print "Message from first sub:  " , join (' ', @_), $/;
}


##</code><code>##

Message from first sub:  from first sub