#! /bin/perl -w

use strict;

&routine(7);

sub routine{
   my $array_length=@_;
   my ($value)=@_;
   my $specific_value=$_[0];
   print "This function was called with $array_length argument(s) and a value of $value\n the value can also be accessed from the array directly and returns $specific_value\n";
}