open(DATA,"data.pl");
   while (<DATA>) {$data .= $_;}
close DATA;

eval $data;

##</code><code>##

@array = (
        { label => "backup.hostname.com",
        status => "on",
        type => "ping",
        data => "hostname.com",
        user => user@hostname.com,
        error => 'Failed',
        },
);