my @perl_array; foreach $array_ref ( @array ) { my $colname = shift @$array_ref; my $items = join ",", @$array_ref; push @perl_array, "var $colname=[$items]"; } for ( @perl_array ) { print $_,"\n"; }