#!/usr/bin/env perl
use Modern::Perl;

sub squares {
    my $n = shift;
    $_ *= $_ for @$n;
}

my @nums = (1..10);
squares(\@nums);
say for @nums;