&sub1("Good");

sub sub1 {
    &sub2;
}

sub sub2 {
    my $var = shift;
    print "We're having an argument: $var.\n" if defined $var;
}