foreach (...){
    ...
    next if ($1 == 1) {
          1.Anweisung ;
          2.Anweisung;
     }
}

foreach (...) {
  ...
  if ( $1 == 1 ) {
    1. Anweisung
    2. Anweisung
    next;
  }
}

# Laengere Schreibweise:
if ($x == 1) {
    $x = 0;
}

# Kuerzere Schreibweise:
$x = 0 if $x == 1;

print "ciao!"	if $string eq "ciao";
print "hi!"	 elsif $string eq "hi";
print "hallo!"	else;

my %funcs = (
    ciao => \&print_ciao,
    hi => \&print_hi,
);

my $string = 'ciao';

if( exists $funcs{$string} ){
    $funcs{$string}->();
}
else{
    print_default();
}

# hier die Subs...