sub getLoopData {
    my $table = shift;
    my $order = shift;
    my @fields = @_;
    my $sql = "SELECT " . join (', ', @fields) . " from $table ORDER BY $order";
    my $sth = $dbh->prepare_cached($sql);
    $sth->execute();
    my @rows;
    while (my $row = $sth->fetchrow_hashref) {
      push (@rows, $row);
    }
  	return \@rows;
  }