Select Code to Download

for my $num (@$aref) {
    $flag = 1 if $num == 6;
...
}
push @result, @temp;
print Dumper \@result;