What you're doing there could be reduced to

perl -MList::Util=shuffle -le 'print join $/, shuffle 1 .. 10'
[download]

Whereas a closer simulation of drawing random numbers from a bag would be through a subroutine

sub bag_draw {
  my $bag = shift;
  return splice(@$bag, rand(@$bag), 1);
}
[download]

This way you can draw items from a 'bag' if and when you choose. You might also be interested in the set implementation on CPAN - Set::Bag.
HTH

_________
broquaint