my $var_one;
sub copy_file {
  my $var_one = $var_one;
  open(IFILE, "<afile");
  while($x = <IFILE>) {$x =~ s|(\$\w+)|$1|eeg; print $x};
  close(IFILE);
}