Make two code snippets a valid Perl code