#!/usr/bin/perl

print (sort (  f(  0 ) ));
print (sort (  f ( 0 ) ));
print (sort ( &f ( 0 ) ));
print (sort    f(  0 ) );
print (sort    f ( 0 ) );
print (sort   &f ( 0 ) );

sub f { 1 }

##</code><code>##

Chromium:~ lexicon$ perl -l little.pl
1
0
1
0
0
1