#!/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;