$obj->shift()
$obj->pop()

##</code><code>##

for my $match ( @tied_result ) {
    # ...
}