#!/usr/bin/perl use warnings; use strict; my @array = (8, 1, 4, 11, 17); my $ref = \@array; ${$ref}[0] = 100; print "Array is now : @array\n";