while (@ARGV) {
    $ARGV = shift @ARGV;
    open ARGV, $ARGV or warn("Couldn't open $ARGV: $!\n"), next;
    while (<ARGV>) {
        ...
    }
}