#!/usr/bin/perl
use warnings;
use strict;

sub add {
    my $x = shift;
    my $y = shift;
    my $sum = $x + $y;
    return $sum;
}
sub subtract {
	return shift-shift; # Hello, World
}
sub foo {
	my $x = shift;
	return "foo$x";
}