my %hash;
while ( <FILE> )
{
    my ( $key ) = ( m/^(\w+)/ )
      or next;
    $hash{$key} = 'whatever';
}