my @data = (
qq{key1~key2~key3
Value for key1, key2, key3},

qq{key4~key5~key6
Value for key4, key5, key6},

qq{key7~key8~key9
Value for key7, key8, key9}
);

my %hash;
for (@data) {
    s/\n(.*)$//;
    %hash = ( %hash, map {$_, $1} split(/~/, $_));
}