while (my $file = <FP>) {
    chomp $file;
    ...
}