#!/usr/bin/perl -w
use strict;
use Sort::Naturally;

my @unsorted = <DATA>;

my @sorted = nsort(@unsorted);

print @sorted;

__DATA__
workstation_1_1
voiceserver_1_1
workstation_1_2
voiceserver_1_2

##</code><code>##

voiceserver_1_1
voiceserver_1_2
workstation_1_1
workstation_1_2