my @vdbhosts = sort @lines;
my $count = 1;
for ( @vdbhosts ) {
    print "$count: $vdbhosts[ $count ]\n";
    $count++;
}