use Sort::Key::Natural 'natsort';
my @sorted = natsort @array;