"this is the one which i wrote by myself if its wrong plz letme knw"

I'm sure if you ran your script you'd see it was wrong, in the sense that it doesn't work. Here is an example which does what I think you are trying to do:

#!/usr/bin/perl

use strict;
use warnings;

my $word1 = 'Hcr1fa.fa'; # you missed the ;

if ( $word1 eq "chr1.subst.fa" ){ # I added quotes
    print "$word1\n"; 
} elsif ( $word1 eq "Hcr1fa.fa" ) { 
    print "$word1\n" 
}
[download]

Now I'm sure you know what you're trying to achieve with your code, I don't. My code prints the value of $word1 if the value is "chr1.subst.fa" or "Hcr1fa.fa". You'll see from the code and the comments that I added quotes around chr1.subst.fa, are you expecting this string or are you trying to match something else?

When you previewed your post, you must have seen that something was wrong with the formatting. Your closing code tag should be </code> rather than <\code>.

Here are some links I think you should read and understand:

• PerlMonks for the Absolute Beginner
• perlintro
• Perl FAQ
• http://learn.perl.org
• http://perldoc.perl.org
• Browse the Tutorials section of this site, including Perl and Bioinformatics.