#!/usr/local/bin/perl

use Sort::Maker ;

my $sorter = make_sorter( 'GRT', number => '/\D/ ? 0 : $_' ) ;
print "$@" unless $sorter ;


print map "$_\n", $sorter->( qw( 22 1 10 NA 33 NA ) ) ;




