my $filename = <>;
    chomp $filename;  
    my @filenam = split ('\.', $filename);
     my $fi;
     my $fff=($filenam[0],"_header",".txt");
     open($fi,">", $fff) or die "Open failed for $fff: $!";