#!/usr/bin/perl -w use strict; my @L=(35,10,0,27,100,-4); sub numeric { $a $b; } @L = sort numeric @L; print @L;
просто оставлю это тут
Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.9.2.12) Gecko/20101026 AdCentriaIM/1.7 Firefox/3.6.12