sub s1 {
    my $data = pop;
    print Dumper $data;
}

sub s0 {
    push @_, [45, 'D'];
    goto &s1;
}

s0;