$ perl -le '
sub foo {
  return qw( a b c );
}

my $var = foo();
print "Resultat: $var";
'
Resultat: c
$