Select Code to Download

#! perl
use strict;
...
print "storeID = $_\n", pp($hash{$_}), "\n" for
    grep { exists $hash{$_}->{stockStatus} &&
                  $hash{$_}->{stockStatus} =~ /(?:In|Limited) Stock/i 
+} keys %hash;

 2:42 >perl 523_SoPW.pl
storeID = 500
...
}

 2:42 >