my &#36filename = '???';

my %files = ();
unless (open (FILE, &#36filename)) {
  die "Error: couldn't read '&#36filename': &#36!\n";
}
else {

  while (<FILE>) {
    chomp(&#36_);
    my (&#36size, &#36filename) = split(/\s+/, &#36_, 2); # es koennen ja auch Leerzeichen im Dateinamen sein...

    # hier noch eine sicherheitsabfrage, ob die Datei 
    # auch wirklich noch nicht zu %files hinzugefuegt wurde:
    if (exists &#36files{&#36filename}) {
     print "Dublicate entry for '&#36filename}'\n";
    } # if
    else {
     &#36files{&#36filename} = &#36size;
    } # else

  } # while

  close (FILE);
} # else

# ausgeben:
foreach (sort keys %files) {
  print "&#36_ => &#36files{&#36_}\n";
}
# oder was du auch immer damit machen willst...