Line by line...

@row= {AAA,BBB};
[download]

You probably mean to say,

@row = ( 'AAA', 'BBB' );
[download]

Or...

@row = qw/AAA BBB/;
[download]

But you ought to be limiting scope, and in fact, strict is going to require that you do so. Thus....

sub job {
    my @row = qw/AAA BBB/;
    return @row
}
[download]