#!/usr/bin/perl -w
use strict;
sub job {
@row= {AAA,BBB};
return @row;
}

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