Select Code to Download

#!/usr/bin/perl -w

...
    print "$${$objREF->{'poker'}}\n";

}

#!/usr/bin/perl -w

...
    print "array is: $data[2]\n";
    print "Ref is: ${$objREF{poker}}\n\n";
}