Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my @array = (0 .. 9);
@array = shuffle @array;
print pop(@array), "\n", @array;