#!/usr/bin/perl -w

use strict;
my %Hash;

$Hash{substr($_,rindex($_," ")+1,-1)} = substr($_,0,index($_," ")), wh
+ile(<>);

print "key=$_, val=$Hash{$_}\n" foreach sort keys (%Hash);
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.