#!/usr/bin/perl

#Another simple example using subroutines.
#  This one has a subroutine named chomp.

print 'Please provide your name: ';
$name = <STDIN>;
chomp $name;

print "\n";

@array = split //, $name;

&chomp(@array);

sub chomp
{
  foreach(@_)
  {
    print "Chomping...$_\n";
  }
}