use strict;
use warnings;

second (first ());

sub first {
my @something = qw'apple monkey banana horse';
return @something;
}

sub second {
  print "@_";
}

##</code><code>##

apple monkey banana horse