# CSV Header for hash. (Key value)
        my @pname = ();
        while ( my $row = <$fh> ) {
            chomp $row;
            my @fields = split ";", $row;
            foreach my $element (@fields) {

                # Clearing quotes
                $element =~ s/\"//g;
                push @pname, $element;
            }
            last;
        }