retard.pl

sub backupDatabases {
    my ($accountid, $target) = @_;
    my @aList = &dbQuery($dbh, "select username from accounts where _rowid = " . $accountid);
    my $username = $aList[0]->{'username'};
    my $resp;

    my @fileList = split(/,/, $target);
    …
}