open( my $logfh, '>>', '/var/log/my.log') || die "cannot log $!"; my $a = 'some value'; log( $logfh, $a); sub log { my $fh = shift; say $fh join( ' ', @_ ); }