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

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

sub find_broken_links
{
  my $location = ( defined $_[0] ) ? "$_[0]" : return ;
  my $broken_links = ( defined $_[1] ) ? "$_[1]" : return ;
  ... # other code not shown here
  push @$broken_links, $var;
  ...
}