eval "print foreach $a";