while ($file = <*.las>) {
    open(FILE, "$file") || die "Couldn't open $file for reading.\n";

    while (<FILE>) {
        $foo = $bar;
    }
    close(FILE);
}