use strict;
use warnings;

my $a_coins = [ 25, 25, 25, 10, 10, 10 , 5, 1, 1, 1, 1 ];
my $wanted = 72;
my @needed = @{ make_change( $a_coins, $wanted ) };
print "@needed = $wanted\n";

sub make_change {
    my( $a_coins, $dest ) = @_;
    my @coins = sort { $b <=> $a } @{ $a_coins };
    my @need;
    my $tally = 0;
    while ( @coins ) {
        my $current = shift @coins;
        next if $tally + $current > $dest;
        $tally += $current;
        push @need, $current;
        return \@need if $tally == $dest;
    }
    shift ( @{$a_coins} );
    @need = @{ make_change( $a_coins, $dest ) };
    my $check=0;
    foreach ( @need ) {
        $check += $_;
    }
    if( $check == $dest ) {
        return \@need;
    } else {
        die "Can't make change.\n";
    }
}