#!/usr/bin/perl -w
use strict;

my $foo = shift;

sub one {
    return shift;
}

sub two {
    push @_, one( $foo ) and $_[0] ? return pop : pop;
    return "No arg";
}

print two() . "\n";;