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