sub test {
    my ($arg) = @_;
    print "$arg\n";
    if ($arg == 1) {
        print "entering loop 1\n";
        $hashname = "hash1";
    } elsif ($arg == 2) {
        print "entering loop 2\n";
        $hashname = "hash2";
    }
    print "$hashname\n";
    return ($hashname);
}