use strict;
use warnings;

my $file = 'gp1data.txt';
open my $info, $file || die "Could not open $file: $!";

while( my $line = <$info>) {
	chomp($line);
	print $line;
	(my $word1, my $word2) = split /-/, $line;
	$hash{word1} = $word2;
}
while ( my ($k, $v) = each $hash){
	print "key $k => $v\n";
}
<>;