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