use Tie::Pick;
tie my $pick_from_bag, 'Tie::Pick', (1 .. 10);

while (defined(my $element = $pick_from_bag)) {
     print $element, "\n";
}