### begin_: init
    use strict;
    use warnings;
    use Data::Dumper;

    my  $oDataTable = [
        {
            'type' => 'type1',
            'text2' => 'text-a2',
            'regex' => '[a-z\\d]?',
            'url' => 'http://c',
            'text1' => 'text-a1',
            'dir' => 'a'
        },
        {
            'type' => 'type2',
            'text2' => 'text-b2',
            'regex' => '[a-z\\d]{0,2}',
            'url' => 'http://b',
            'text1' => 'text-b1',
            'dir' => 'b'
        },
        {
            'type' => 'type3',
            'text2' => 'text-c2',
            'regex' => '[a-z\\d]{0,3}',
            'url' => 'http://c',
            'text1' => 'text-c1',
            'dir' => 'c'
        },
    ];

### begin_: process the data
    MungeMyData($oDataTable);
    print Data::Dumper->Dump([$oDataTable], [qw(dataroot)]);

### begin_: the master subroutine
    sub MungeMyData {
        my  $oData  = shift || die"missing data";

        for my $row (@{$oData}){

            if ($row->{type} eq 'type1' ){
                $row->{dir} = uc($row->{dir});
                $row->{text1} = reverse($row->{text1});
                ### munge munge munge ...
            };

            if ($row->{type} eq 'type2' ){
                $row->{dir} = lc($row->{dir});
                $row->{text1} = substr($row->{text1},3);
                ### munge munge munge ...
            };

            ### munge munge munge ...

            if ($row->{type} eq 'type9' ){
                $row->{dir} = lc($row->{dir});
                $row->{text1} = substr($row->{text1},3);
                ### munge munge munge ...
            };
        };

        @{$oData} = sort { $a->{type} cmp  $b->{type}} @{$oData};

        return $oData;
    }###end_sub

### begin_: the end
    1;
__END__