sub function{
  my ($a,$b,$c,$d) = qw (1 2 3 4);
}