use PDF::API2;
use PDF::Table;

##</code><code>##

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