use Sort::Key::Natural qw(natsort); my @sorted = natsort @data;