my $data = handoverthedata();
(...)
sub handoverthedata{
    # Inlined data starts here
    # and gets stored in my $foo...
    # Data
    # Data
    # Data
    # Data
    # Data
    # Data
    # Data
    # Data
    # Data
    # Data
    # Data
    # Data
    # Data
    return $foo;
}