my @sorted = sort { $a <=> $b } @unsorted; #### $SIG{INT} = \&catch_int;