#!/usr/bin/perl -w

use strict;

my @my_bag;

@my_bag = (1..10);

while (@my_bag > 0) {
        my $x = int(rand($#my_bag));
        print splice(@my_bag, $x, 1) . "\n";
}