my $input_file = "dat.txt";
 our %dedicated;

 open(DATA, "<$input_file" ) or die;
 while ( my $line = <DATA> )
 {
   chomp $line;
   my ($a, $b) = split ' ', $line;
   $dedicated{$a} = $b;
 }
   keys %dedicated;
   while (my ($k, $v) = each %dedicated ) {
     chomp($k, $v);
     blah  }
     }
   }