my @sorted;
{
  no warnings;
  @sorted = sort { $a <=> $b } @data;
}