sub main {
  second(first());
}
[download]

 
#/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 (' ', @_), $/;
}
[download]

output

Message from first sub:  from first sub
[download]

Btw, you don't need the & to call the sub.

cheers

SK

sub first{
 some stuff
 return @somearray
}
sub second{
 my @Something = @_; #then do whatever
}
sub main{
second(first);
}
main;
[download]

Just use first as the parameter to second:

use strict;
use warnings;

second (first ());

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

sub second {
  print "@_";
}
[download]

Prints:

apple monkey banana horse
[download]

Note that the &sub calling syntax is generally frowned on unless you really want to use it to pass the @_ for the current sub into the called sub.

sub main {
my @returned = &first;
&second(@returned);

#The & isn't necessary if perl already knows that first
#and second are subroutines, i.e. if you declare them
#prior to use as in the previous examples.

}

sub first {
my @something = (qw[some stuff....]);
return @something;
}

sub second {
my @needs = @_; #@needs = something
}
[download]

disambiguate($a, @really, $long[3], {and => 'potentially', rather => \
+%confusing} &call( 'that', &is(\$already, $crowded)), $got_it{?})
[download]