use warnings;
use strict;

my %hash_rec = (id => "001");

doSub2($hash_rec{id2});

print "main: id2 = $hash_rec{id2}\n";


sub doSub2 {
    $_[0] = "Hello alias";
}

##</code><code>##

main: id2 = Hello alias