use strict;
use warnings;
my ($i, $j) = (1, 2);
my $k = '';
print $i + $j ."\n";
print $i + $k ."\n";