Select Code to Download

#!/usr/bin/perl -w
use strict;
...
{
   print "$_ OK\n" if $hash{$_};
}

$VAR1 = {
          'S' => 18,
...
z OK

Process completed successfully