for my $element (@$redi) {
    print "$element\n";
}