#!/usr/bin/perl -w

use strict;
my %Hash;

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

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