my %ResultHash = (
    what => [
        1,2,3
    ],
    ever => [
        qw( a b c )
    ],
);
    # resultview return
    open (TMPFILE, ">$TempFile")|| die "Fehler $!";
    print TMPFILE Data::Dumper->Dump([\%ResultHash], ['*name']);
    close TMPFILE;