#!/usr/bin/perl

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

my %bins = (
    A => 0,
    B => 0,
    C => 0,
    D => 0,
);

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;
}

for my $name (sort {$dir{$b} <=> $dir{$a}} keys %dir) {
    my ($smallest) = sort {$bins{$a} <=> $bins{$b}} keys %bins;
    $bins{$smallest} += $dir{$name};
}

print Dumper(\%bins);