foreach my $result ( @{$results} ){
    print $result, '<BR>';
}