sub name {
  my $parameter = shift;
  # or
  # my ($parameter1, parameter2) = @_;

  my $end_variable;
  # ... code to munge the parameter(s) and set end variable...

 return $end_variable;
 # or
 # print $end_variable;
}