my $before = [qw(1 2 3 4 5 6 7 8 9 10)];
my $after  = [qw(2 3 4 5 1 6 7 8 9 10)];

##</code><code>##

my $smallest = (sort {$a <=> $b} @array)[0];

##</code><code>##

my @array = (7,1,2,3,4,5,6,8,9);