#!/usr/bin/perl

use warnings;
use strict;
use Data::Dumper;

my $max = 10**10;
my $new_bin = 'A';
my %bins;

my %dir;
my $int;
while(<DATA>) {
    chomp;
    my ($size, $name) = split /\s+/;
    $name .= ++$int if $dir{$name}; # Disabiguation; all your names are identical
    $dir{$name} = $size;
}

DIR_LOOP: for my $name (sort {$dir{$b} <=> $dir{$a}} keys %dir) {
    for my $bin_name (sort {$bins{$b} <=> $bins{$a}} keys %bins) {
        if ($bins{$bin_name} + $dir{$name} < $max) {
            $bins{$bin_name} += $dir{$name};
            next DIR_LOOP;
        }
    }
    $bins{$new_bin++} = $dir{$name};
}

print Dumper(\%bins);