my %hash;
while (<>) {
  $hash{$1} = $2 while m/(\w+)\W+going\W+(\w+)/g;
}

__END__
%hash = (
    'am' => 'home',
    'are' => 'school',
    'is' => 'to',
);