@arr = ();

##</code><code>##

use strict; # ALWAYS!!!

my @array = &getarray();
my $blah;

foreach my $val (@array) {
   $blah .= ",$val";
}
print "$blah\n";

sub getarray {
   return ('a'..'d');
}

##</code><code>##

print join(',', getarray()), "\n";