sub pass{
    my ( $problem1 )= @_; # <-- Your mistake is here
    print "$problem1\n";
}
[download]

First value passed to pass() is a reference to $obj.
The following will work.

sub pass{
    my ( $self, $problem1 )= @_;
    print "$problem1\n";
}
[download]

--perlplexer