my $a = 'some value'; log( $a ); sub log { my $file = '/var/log/my.log'; open( my $log, '>>', $file ) || die "Cannot open logfile $file: $!"; say $log join( ' ', @_ ); close $log; }