my @array = ( 4,5,3,4,5); print function(),"\n"; sub function { my $rv; foreach my $item (@array) { $rv .= $item . "\t"; } return $rv; }