use Sort::Key::Natural qw(natwfsort);
my @sorted = natwfsort @array;