#!/usr/bin/perl -w

#A sample program that uses subroutines.

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

print "\n";

@array = split //, $name;

&munch(@array);

sub munch
{
  foreach(@_)
  {
    print "Munching...$_\n";
  }
}