while (my $line = <IN>) {
@elem = split(/\s+/, $line);
}

while ($line = <IN>) {
@elem = split(/\s+/, $line);
}

どっちが速い?