use strict;
use warnings;

my $fname = 'list.txt';

open my $fOut, '>', $fname or die "Can't create $fname: $!\n";
print $fOut <<TESTDATA;
some test data goes here
TESTDATA
close $fOut;

...