Select Code to Download

display(@data);

for my $dir (@dirs){ # idiomatic perl way to loop over a list
    print "$dir\n";
}

sub display {

...
        print "$dir\n";
    }
}