foreach ( @dupes ) {
    print RESULT_FILE
        $_, ': ',
        join( ', ', @{$folded_lines{$_}}[ 1 .. $#{$folded_lines{$_}} ] ),
        "\n";
}