my $file = 'my_data_file.txt';

my %seen = ();

{
      local @ARGV = ($file);

      #local $^I = '2.txt';
  
      while(<>){
  
      $seen{$_}++;
  
      next if $seen{$_} > 1;

      print;
  
      }
  
      }