#!/usr/bin/perl
use warnings;  
use strict; 
 my @sample1=qw/a b c d/; 
 my @sample2=qw/1 2 3 4 /; 
 my @sample3=qw/x1 x2 x3 x4/; 
# Joined array: 
 my @big=(@sample1, @sample2, @sample3); 
print"\n Original Big Array:\n
@big\n";
# To store the array values in a hash:  
my %h;

# Code for removing x3 & its corresponding values from big array???
# and code for modified @sample1, @sample2 & @sample3 ???
$deleted_ele="x3"; 
 ???? 

print"\n Original big array: @big\n 
 Resultant big array: @mod_big\n 
 Deleted Element: $deleted_ele\n  
 Modified sample1: @mod_sam1\n   
          sample2: @mod_sam2\n 
          sample3: @mod_sam3\n\n";   

exit;

##</code><code>##

Original big array: a b c d 1 2 3 4 x1 x2 x3 x4 
Resultant big array: a b d 1 2 4 x1 x2 x4 
Deleted Element: x3  
Modified @sample1: a b d 
         @sample2: 1 2 4 
         @sample3: x1 x2 x4