Help for this page
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 } ];