#!/usr/bin/perl -w
use strict;

my @broken = (1,2,3);
my $location = "/home/user/";
find_broken_links( $location, \@broken );
foreach my $var (@broken)
{
    print "Returned: $var\n";
}


sub find_broken_links
{
  my ($location, $broken_links) = @_;
  # other code not shown here
  my $var ='X';
  push @$broken_links, $var;
}

#prints:
#Returned: 1
#Returned: 2
#Returned: 3
#Returned: X