abc(3271);
sub abc{
my $a=shift; #what is it? why are we shifting??
}