Select Code to Download

my $choices = join "\n   ",
   map { "(  .{$_} (?{ my \%r = \%{\$^R}; \$r{$_}++; +{ \%r } })  ){0,
+".(int($amount/$_))."}" }
                   @bills;

12:28pm /home/Ivancho/bin> probichka.pl 20
(?x-ism:
...
            '20' => 1
          }
        ];