#!/user/bin/perl -w
upper($1,$2);
sub upper 
{
  for(@_)
   {
     tr/a-z/A-Z/;
    }
}