#!/bin/perl
use strict;
use warnings;

my @vals = ( 5, 6, 7 );

my @area = &circ_area( @vals );
foreach (@area)
{
          print $_ . "\n";
}

sub circ_area
{
    foreach (@_)
    {
         $_= 3.14 * ($_**2);
    }
    return (@_)
}