Select Code to Download

#!/usr/bin/perl
use strict;
...
    print "IN SUB: " . $hash->{'a'}->{'status'} . "\n";
    return 0;
}

$ ~/test.pl 
BEFORE SUB: OK
IN SUB: OK
AFTER SUB: NOT OK