open(my $fh1, '>', $file1) or die;
open(my $fh2, '>', $file2) or die;
for (@data)
{
   print $fh1 "$_\n";             
   print $fh1 "$_\n";   # Oops, but detected, because $fh2 will exit unused
}