use warnings;
use strict;

my %vars;

while (<>) {
    local @_ = split;
    $vars{$_[0]} = $_[1];
}