!/usr/bin/perl
if ($^I =~ m/cool/) {
        go("clubbing")
} else {
        go('hack', 'Perl')
}

sub go {
        print "Guess I'm just another @{[reverse @_]}er.\n";
}