foreach( @results ) {
    $record = $_;
    print $record;
}
@test = $record;
print @test[0];

##</code><code>##

foreach( @results ) {
    $record = $_;
    print $record;
}
@test = $record
print @test[1];

##</code><code>##

foreach( @results ) {
    $record = $_;
    print $record;
}
@test = $record
$scalar = $array[0];
print $scaler;