foreach my $n (0 .. @normal){
  if ($n%2){
    push @reverse, $normal[$n].$normal[$n+1];
  }
}