Select Code to Download

use Data::Dumper;
warn Dumper( \%questions );

# assume %questions is populated.
my %answers = {
  ...
...
    $wrong++;
  }
}