my %hash;
  my @ary = @$row;

  my ($i, $k, $v, $date);

  for ($i=0; $i<=$#ary; $i++) {
    %hash = %{$ary[$i]};
    $date = con_date($hash{"g_afsluttet"});
    $hash{"g_afsluttet"} = $date;
  }

  HELP NEEDED HERE :o)
  @ary = (\%hash);
  HELP NEEDED HERE :o)

##</code><code>##

my @ary;

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