use strict;
my %stats=('sent',0,
    'recv',4,
    'masters',2,        
    'errors',2
);
my @saveorder = qw (sent recv masters errors);

print  join (",", @stats{@saveorder}), "\n",
       join(',', sort { $a <=> $b } values %stats), "\n";