my %current;
open CURRENT, '<', $currentFile or die $!;
m[^ ( [^|]+ ) \| ]x and $current{ $1 } = $_ while <CURRENT>;
close CURRENT;