sort => q[
        my @fhs = sort {
            fileno( $a ) <=> fileno( $b )
        } @fhs;
    ],