#!/usr/bin/perl -w

use strict;

my $x;
my $i;
my @my_bag;

@my_bag = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

$i = @my_bag + 1;
while (@my_bag > 0) {
        $x = int(rand($i));
        $x = $x > 0 ? $x - 1 : $x;
        print splice(@my_bag, $x, 1) . "\n";
        $i--;
}