Select Code to Download

#!/usr/bin/perl
use strict;
...
for my $track (@tracks){
    print <$track>;
}

#!/usr/bin/perl
use strict;
...
    my ($trackFile, $lines) = @$track;
    print <$trackFile>;
}