#!/usr/bin/perl

use strict;

{
     foreach my $inputString (@inputArray)
     {
          my $cipheredText = &ceaser_cipher($inputString);
          print "'$inputString' becomes '$cipheredText'\n";
     }
}

exit;

sub cipheredText
{
     my ($rawText, @otherParameters) = @_;

     # The magic happens here -- have entered a SoPW request at PerlMonks.
}

__END__