Select Code to Download

sub addfor{
   my ($mainwidget,$entryVariable) = @_;
...
      push @history, $entryVariable;
   }
}

use List::Util 'first';
sub addfor{
...
      push @history, $entryVariable;
   }
}