Select Code to Download

$string = $obj->pass("problem1");

if ($key eq "problem2"){
        foreach (@ha{$key}){
            print "array : @{$_}\n";

#in  main.pl
use packa;
...

}
1;