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

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

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

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