my $extra_data = $data->{$num}{extra};
 unshift @$extra_data,["City", "Street", "ZIP"];