#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my @tracks = map {open  my $track, ">", $_ or die "Can't open $_: $!"; $track}
    'track1.txt', 'track2.txt', 'track3.txt';

for my $track (@tracks){
    print <$track>;
}