#!/usr/bin/perl -w
use strict;
sub job {
my @row= ('AAA','BBB'); # or my @row = qw(AAA BBB);
return @row;
}

my @red =job();
foreach my $r(@red)
{
print $r;
}