Sub to create hash

create_hash.pl

#!/usr/bin/perl
use strict;
use warnings;

sub create_hash {
    my %hash; 
    my @keys = "@{$_[0]}";
    my @values = "@{$_[1]}";

    foreach my $i (0 .. $#keys) {
        $hash{$keys[$i]} = $values[$i];
    }

    return %hash;
}

my %hash = create_hash(["do", "re", "mi"], ["first", "second", "third"]);

while ((my $key, my $value) = each %hash) {
    print "$key => $value\n";
}