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