#!/usr/bin/perl

@z = square(4,5);
print "The squares are: @z\n";

sub square
{
  # return a comma-separated series of values
  return (($_[0] * $_[0]),($_[1] * $_[1]));
}

# Prints:
# The squares are: 16 25