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