use CGI qw(:standard);

print Tr(
    td( [ @result[ 0 .. 2 ] ] ) ,
    td( [ @result[ 3 .. 5 ] ] )
)