Wish I had a beer...

#!/usr/bin/perl

use v5.12;
use warnings;
use strict;

my %data;

while (<DATA>) {
    my ($num, $key) = split;
    if (my $min = $data{$key}) {
        no warnings 'numeric';
        $data{$key} .= $_ if $num == $min;
        $data{$key} = $_ if $num < $min;
    } else {
        $data{$key} = $_;
    }
}

print $data{$_} for sort keys %data;

__END__
[download]