{
        $shield=param('shield');
        $correctryhm=param('correctryhm');
        $response=param('response');
        $win=param('win');
        $win=$win+1;
    }
[download]

to

    { 
      $shield = param( 'shield' );
      process();
    }

    # ....

    sub process
    {
        $correctryhm = param('correctryhm');
        $response    = param('response');
        $win         = param('win');
        $win=$win+1;
    }
[download]

This will reduce the size of your code.