use strict;
use warnings;

my $row1;
my $row;
my $filename = 'newfeed.dat';
my $filename1 = 'abc.csv';
my $filename2 = 'finalfeed.dat';

open(my $fh, '<', $filename) or die "Could not open file '$filename' $!";
open(my $fh1, '<', $filename1) or die "Could not open file '$filename1' $!";
open(my $fh2, '>', $filename2) or die "Could not open file '$filename2' $!";

 while ($row1 = <$fh1>) {
     my @fields1 = split(',',$row1);
 #print $fh2 "@fields1 n";
while ($row = <$fh>) {
  next if $row =~ /^$/;
  my @fields = split('~',$row);
  $fields[1] =~ s/./ /g;
  $fields[1] =~ s/^s+|s+$//g;
  $fields[2] =~ s/^s+|s+$//g;
  $fields[3] =~ s/^s+|s+$//g;
  #print $fh2 "@fields n";

  if (($fields1[0] == $fields[1]) && ($fields1[1] == $fields[2]) && ($fields1[2] == $fields[3]))
  {
      print $fh2 "$row n";
      }
}

 }