Select Code to Download

use strict;
use Text::Table;
...
                                                        for (0..$#{$be
+st->{$key}});
        }
print $table;

key BEST KEEP BEST
--- ---- ---------
...
key2 f   i
key2 g   j
key2 h   k