#start code (such as it is)

sub merge {
    my (@array1,@array2) = @_;
    $array1_size = @array1;
    $array2_size = @array2;
    for($i=0;$i<$array1_size;$i++) {
      if(!lookup(@array1[$i],$array2)) {
       push(@array2,($array1[$i]));
      } else { break; }
    }
    return $array2;
}

sub lookup {
    my($value,$array) = @_;
    $return = FALSE;
    $array_size = @array;
    for($i=0;$i<$array_size;$i++) {
      if($value eq @array[$i]) {
        $return = TRUE;
      }
    }
    return $return;
}

@array1 = split(/ /,"a b c d e");
@array2 = split(/ /,"c d e f");

@merged_array = merge(@array1,@array2);

#end code