$ perl -le 'print $h++'
0
$ perl -le '0 and print "this will not be printed"'
$

##</code><code>##

while ( <DATA>) {
    chomp;

    if ($_ > 5) { 
        $hash{ $_ }++; 
        next;
    }
 
    print;
}