Help on chomp()

[Mazhar]

Dear Frndz,

I am writing the below code and i am facing a problem in chomp (its an HP UX
Box)

--------------------Code----------------------------

#!/usr/bin/perl

use strict;
use warnings;
my $file_name=$ARGV[0];
open(FILE,"$file_name") || die "Not been Accessed" ;
@host_array=<FILE>;
close(FILE);

foreach my $host(@host_array)
 {
     chomp($host);
     print "$host \n";
}
--------------------------------------------------------

-------------Input-----------
tecomsip
ossnnmcs01
ossnnmcs02
-----------------------------

Output is

ecomsip
ssnnmcs01
ossnnmcs02

From the output i see the first character is missing in the output..

Thanks
Mazhar