Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    my ($sn,$mk) = split ('-',$key); 
    print "key: $key \tmk: $mk\t sn: $sn item: $items{$key}\n";
}

key: 614-16.00  mk: 16.00        sn: 614 item: MNH
key: 614-32.00  mk: 32.00        sn: 614 item: USED
...
key: 616-10.00  mk: 10.00        sn: 616 item: PB
key: 616-2.00   mk: 2.00         sn: 616 item: USED
key: 616-96.00  mk: 96.00        sn: 616 item: MNH