if(lc $foo + lc $bar) {print $foo}