my @ary; foreach my $eachrow (@$row) { my %hash = %{$eachrow}; $hash{g_afsluttet} = con_date($hash{g_afsluttet}); push @ary, \%hash; }