my @vdbhosts = sort @lines;
unshift @vdbhosts, 'padding';

my $count = 0;
for ( @vdbhosts ) {
    my $host = $vdbhosts[ $count ];
    print "$count: $host\n" unless $host eq 'padding';
    $count++;
}