1 - The first parameter to your method will always be the object handle. Try the following:

sub pass{
    shift(); # To ignore the handle
# or
# my $self = shift(); if you want to use it.
    my ( $problem1 )= @_;
    print "$problem1\n";
}
[download]

---

Everything went worng, just as foreseen.