#!
use strict;
use warnings;

my @arr = (1,2,3,4);
my @arr2 = ('a',4,2,'s');

my $rarr = \@arr;
my $rarr2 = \@arr2;
my @arra = ($rarr,$rarr2);
# I am trying to print the array @arr & @arr2.
# i also want to access individual elements in those arrays using references
print $arra{$$rarr[0]};