#!/usr/bin/perl -w
use warnings;
use strict;

my @tmp;

### Start Configuration
my $src_file = "Servers.csv";
### End Configuration

my %stack = ();
my $current_key = undef;
my $current_value = undef;

open( SRC, "<", $src_file  );

while (<SRC>) {
       chomp;
        s/#.*//;
        s/\"//g;
        s/\;/\-/;
        push @tmp, $_ if $_ =~ m/^\;/ and next;
        my ($key,$value) = split /\-/, $_;
        push @tmp, $value;

        if (defined $key) {
           $current_key = $key;
            push @tmp, $value;
           $stack{$current_key} = @tmp;
}

close(SRC);