#!/usr/bin/perl -w

use strict;

sub foo_p($) { print "$_[0]\n" }
sub foo      { print "$_[0]\n" }

sub baz { qw[ foo bar ]     }
sub zab { reverse baz()     }
sub bam { return (baz(),zab())  }
sub bar { return bam()      }

foo(bar());
foo_p(bar());