sub eins {
    my $x = 124;
    zwei( $x );
}

sub zwei {
    my ($x_zwei) = @_;
    print $x_zwei;
}