foreach(reverse @stack1){
    print "found $_\n";
}