open (my $trli, '>', 'qtracklist')  or  die "S!";
print $trli @trackliste;
close $trli  or  die "S!";