our %info = (version => "0.3"
             format  => 0, 
             ...
             elite   => 1,
            );

##</code><code>##

    print "This is a debug message\n" if ($debug);

##</code><code>##

return and "Failed to login\n" unless ($http_res->is_success);

##</code><code>##

foreach my $d (@data) {
    if ($d->[5] == 1) {
...
    }
}