foreach my $invnumctr (sort { $inv{$a} <=> $inv{$b} } keys %inv) {
    print "$invnumctr is $inv{$invnumctr}\n";
}