Perhaps you have a carriage return on the first line of your file.

my @a = map { tr/\r//d; $_ } <STDIN>;
print @a;
[download]