#!/usr/bin/perl -w

package Helper::X;
{
        no warnings 'once';
        $ACTION = 'foo';
}

package Helper::Y;
{
        no warnings 'once';
        $ACTION = 'bar';
}

package Helper::Z;
{
        no warnings 'once';
        $ACTION = 'baz';
}

package main;
use strict;

print
    map ${$Helper::{$_}->{ACTION}} . " => Helper::$_\n",
    grep /::\z/,
    keys %Helper::;

__END__
baz => Helper::Z::
foo => Helper::X::
bar => Helper::Y::