my @area = &circ_area(5,6,7);
foreach (@area) {
    print $_ . "\n";
}

sub circ_area {
    my @x = @_; # the copy is writable!
    foreach (@x) {
         $_= 3.14 * ($_**2); # so this works!
    }
    return (@x)
}