#!/usr/bin/perluse warnings;use strict;my @band = qw(A B C D);my $ref = \@band;print "Band members before: @band\n";pop @{$ref};print "Band members after: @band\n";