#!/usr/local/perl/bin/perl -w 
$| = 1;
push @$x, abc();

sub abc {
$x = 1;
}