use strict;

sub job {
	my $row= ["AAA","BBB"];
	return $row;
}

my $red =job();
foreach my $r(@$red)
{
	print $r, "\n";
}