@ten = ( 0 .. 9 );
$count{$ten[rand@ten]}++ for 1..10_000_000;
print "$_ -> $count{$_}\n" for @ten;