my %data;
my $obj = App::User->search( username => 'fred' );
while ( my $usr = $obj->next ) {
    foreach ( $user->columns ) {
        $data{$_} = $usr->$_;
    }
}