print Dumper(\%shipto);

##</code><code>##

$VAR1 = { 'country' => { 'label' => 'Namn', 'i' => 3 }, 
'name' => { 'label' => 'Klinik', 'i' => 11 }, 
'contact' => { 'label' => 'Remitterad av', 'i' => 9 },
 'phone' => { 'label' => 'Remiss utgångsdatum', 'i' => 10 }, 
'zipcode' => { 'label' => 'Postnr', 'i' => 6 }, 
'state' => { 'label' => 'Frikort, utgångsdatum', 'i' => 8 },
 'address2' => { 'label' => '', 'i' => 5 }, 
'email' => { 'label' => 'Klinik adress', 'i' => 12 }, 
'city' => { 'label' => 'Stad', 'i' => 7 }, 
'fax' => { 'label' => 'Personnr', 'i' => 2 }, 
'address1' => { 'label' => 'Adress', 'i' => 4 } };

##</code><code>##


$VAR1 = undef;