Select Code to Download

use strict;
use warnings;
...
    print qq{$possible common\n}
       if exists $str1Hash{$possible};
}