#!/usr/bin/perl -w
use strict;

sub x
{
   my $a =5;
}

print x; #prints 5

##</code><code>##

sub x1
{
   my $a =5;
   return;
}
print x1; #still prints 5! Whoa!
#"return'" returns value of last true statement.
#if you don't specify something else for it to return.

##</code><code>##

sub x2
{
   my $a =5;
   return ();
}

print "x2:",x2; #prints "x2:" , ie nothing from sub x2

##</code><code>##

@outputlist = map{..code...}@inputlist;