Void generator in Perl