I don't think there is anyway to get around using a variable. I wonder if Perl 6 addresses this. I am reminded of Ada. I think in Ada this could of been handled like so ...

---<--- max column width --->###
with Foo.Bar.Baz.Really;
use Foo.Bar.Baz.Really;

with Long.Module.Name;
use Long.Module.Name;

procedure call_proc_defined_package_Name is
begin
  a_proc_defined_package_Name("Hello World!");
end call_proc_defined_package_Name;
[download]