my $testfile="/home/user/symbol_list";

&get_symbol_data($testfile);

sub get_symbol_data {
 open (FILE, $_[0]) || die "Can't open $_[0] $!\n";
 @sym_array = <FILE>;
 close <FILE>;

 foreach $symbol (@sym_array) {
   chomp $symbol;
 
   my $wget_url=qq~/home/user/sym_dir/${symbol}_2013 'http://www.downloadsite.com/${symbol}.dat'~;
   `usr/bin/wget -O $wget_url`;
 } 
}