my %common = map { $_ => 1 } %common;

# schleife
push @common_orig_order, $elem if $common{ $elem };