Select Code to Download

open my $in, '<', 'numbers.txt' or die $!;

...
    my @sorted=sort {$a <=> $b}@_;
   return @sorted;
    }

Argument "2 3 3 3 5 7 8 12 32 44 55 12 3 23 43 33 1 4 25 43 42 1" isn'
+t numeric in sort at C:\Users\Alberto\Documents\NetBeansProjects\Perl
+Project\Perl Essentials\subroutines\ave_mode_median_range sub.pl line
+ 24.
this is new sorted data ;