sub function{

  my ($a,$b,$c,$d);

  $a = 1;
  $b = 2;
  $c = 3;
  $d = 4;

}

##</code><code>##

sub function{

  my $a = 1;
  my $b = 2;
  my $c = 3;
  my $d = 4;

}