for my $i (0,1) {
    /abc$tied_array[$i]/;
}