#!/usr/bin/perl

use strict;
use warnings;

sub merge {                  
 my %hash;                   
 @hash{@_} = ();             
 sort keys %hash;            
}                            
                             
my @array1 = qw(a b c d e);  
my @array2 = qw(c d e f g);  
for (merge(@array1, @array2)) {
  $_++;
  print "$_\n";
}