##
#!/usr/bin/env perl
use Modern::Perl;
sub squares {
my $n = shift;
$_ *= $_ for @$n;
}
my @nums = (1..10);
squares(\@nums);
say for @nums;
##
##
#!/usr/bin/env perl
use Modern::Perl;
sub huge {
my $n = shift;
return 1 if $n and $n > 1_000_000;
return ! $n; # reverse the t/f for all other cases
}
for (-1,0,1,100,1_000_000, 1_000_001){
my $t = huge($_) ? 'true' : 'false';
say "$_ $t";
}