#! /usr/bin/perl

use strict;
use warnings;

# sub without prototypes
# use unless you have a reason to prototype

sub foobar {
  # do stuff;
}

# sub that expects one scalar
sub foobaz ($) {
  # do stuff;
}

# sub that expects the first argument
# to be an array, the second to be a
# hash, and the third to be a scalar

sub foobarbaz (@, %, $) {
  # do stuff;
}