sub function{

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

}