use Data::Dumper;
use Fatal qw(open close);
open my $log, '>', $path_to_log;

my_print_routine( $log, Dumper( \%some_var ) );