if ($action eq 'x1') {
  print "Action: $action\n";
}
elsif ...