#!/usr/local/bin/perl

while ($line = <STDIN>) {
         $line =~ s/^\s+|\s+$//g;
         ($subscript, $value) = split(/\s+/, $line);
         $array{$subscript} = $value;
}
