my @ops = ("+","-","*","/"); foreach my $op (@ops){ print "4 $op 5 = "; } #### 4+5=9 4-5=-1 4*5=20 4/5=0.8