open my $keys, "keys.txt" or die "couldn't open keys.txt";
open my $vals, "vals.txt" or die "couldn't open vals.txt";
my $combined = paste($keys,$vals);
print $combined->(), "\n" for 0..4;