perl - perlのData::Dumperで一意の番号のタイトル名を削除するにはどうすればよいですか?

Question

Data::Dumper を使用して、各要素の一意の番号をキャッチします。

#!perl

use warnings;
use strict;
use Data::Dumper;
$Data::Dumper::Sortkeys = 1;

my @names = qw(A A A A B B B C D);
my %counts;
$counts{$_}++ for @names;
print Dumper (\%counts);

exit;

これが出力されます。

$VAR1 = {
          'A' => 4,
          'B' => 3,
          'C' => 1,
          'D' => 1
        };

この形式のような出力を得るために、各一意の番号のタイトル名を削除するにはどうすればよいですか?

$VAR1 = { 4 ,3 ,1 ,1 }