Re^3: Golf: Buying with exact change

[Thelonious]

59

sub largest { # 345678 1 2345678 2 2345678 3 2345678 4 2345678 5 23456789 @r=map'('.5x$_.')*',@_;for($=**=2;(5x$=)=~/^@r$/x;$=--){}$= }