open(my $currentValues, '<', 'current.txt') or die ...