Select Code to Download

my @problems;
foreach my $row ( @$data ) {
...
    print $issue, "\n";    
    return $issue;
}