open FOO, '<', '/path/to/bar.data' or die $!;
my @actions = <FOO>;
close FOO or die $!;

##</code><code>##

for (@actions) {
    my @act = split " ";
    $action_code{$act[0]}->(@act[1..$#act]);
}