chomp(my @file = <xFILE>);

##</code><code>##

    # No need to do
    #   my $line;
    #   foreach $line (@file) {
    #
    foreach my $line (@file) {