Readonly::Hash my %hash => (data => $data);
const my $min => 1;
const my $max => 10;
open (my $infile, '<', "datafile");
chomp(my $line = <STDIN>);

##</code><code>##

sub doIt {
  $_[0] = $_[1];
}

doIt my $num => 4143;