while ( <$fh> ) {
	chomp;
	my ( $key, $pos ) = split /\s+/;

	# fill HoA automagically
	push @{ $positions{$key} }, $pos;
}