#!/usr/local/bin/perl -w
use strict;

my %byFile;

for (<DATA>) {
        my ( $size, $name ) = split /\s+/;
        $byFile{$name} = $size;
}

for ( keys %byFile ) {
        print "$_\t=>$byFile{$_}\n";
}
__DATA__
0       5713813
276k    CVS_RES
264k    Desktop
17k     Documes
33k     SEARCH