Select Code to Download

my %hash = map { my $item = pop @$_; map { $_, $item } @$_ }
 [
...
key4: Value for key4, key5, key6
key5: Value for key4, key5, key6
etc etc etc

my @data = (
qq{key1~key2~key3
...
qq{key7~key8~key9
Value for key7, key8, key9}
);