
use strict 'vars';
sub double {
  $_[0] *= 2;
}

my $number = 119;
double($number);
print "The number is now $number.\n";





