#!/usr/bin/env perl -wl
use strict;
sub x { return "ex" }
sub y { return "why" }
print y( $foo );
print x( $foo );