#!/usr/bin/perl
    use strict;
    use warnings;

    my $array_ref = ['apple', 'banana', 'orange'];
    my @array = @$array_ref;

    print "Reference: $array_ref\n";
    print "Dereferenced: @array\n";