my $filename = "rahul.abc";
    chomp $filename;  
    my @filenam = split ('\.', $filename);
     my $fi;
     my $fff=$filenam[0]."_header".".txt";
    print "\n:$fff:\n"