#!/usr/bin/perl -l

use strict;
use warnings;

sub FOO {
    @_? 1+shift : print 'Foo';
}

FOO for 1..FOO FOO;

__END__