my $outPath = $obj->{outpath}{absolut} . 
    (defined $obj->{sap}{jfExtNum} ? 
    '-' . $obj->{sap}{jfExtNum} : '');
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated