#!/usr/bin/perl -l

use strict;
use warnings; 
  
print my $q = 1;
print $q + +(4*5);
print $q+4*5;
print $q+ 4*5;