#!/usr/bin/perl

use warnings;
use strict;

use payment;
my @my_bills = qw (200 100 50 20 10 5 2 1);

my @my_payments = qw{135 80 66 150 69};
my $mp          = payment->new();
$mp->change(@my_bills);

foreach (@my_payments) {
    $mp->add($_);
}

my %result = $mp->get();

foreach ( sort { $b <=> $a } keys(%result) ) {
    print "$_ \t: $result{$_}\n";
}