my $message= Dumper $myvar;
$message=~ s!^!$timestamp !mg;
print $message;