Try running the following code:

#! /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 dir
+ectly and returns $specific_value\n";
}
[download]

Arrays called in a scalar context return their size. Hope this helps, Utilitarian