Select Code to Download

use strict;
use warnings;
...
my %values = map {/([^\t]+)\t(.*)/; $1 => $2} @strings;

Dump (\%values);

$HASH1 = {
           key1 => 'value1',
           key2 => 'value2',
           key3 => 'value3'
         };