my $moo = 3;
@arr2 = sort { $moo <=> $b } @arr1;