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