Mine

# source content
my %source_param = (
    "foreman-qcif" => {
        "width" => "176", 
        "height" => "144", 
        "base" => "${videodir}/foreman-qcif.yuv",  #need to be modified
    },
    "akiyo-qcif" => {
        "width" => "176", 
        "height" => "144", 
        "base" => "${videodir}/akiyo-qcif.yuv",  #need to be modified
    },
    "foreman-cif" => {
        "width" => "352", 
        "height" => "288", 
        "base" => "${videodir}/foreman-cif.yuv",  #need to be modified
    },
    "mobile-D1" => {
        "width" => "720", 
        "height" => "576", 
        "base" => "${videodir}/mobilecalendar-D1.yuv",  #need to be modified
    }
);


== my rewrite ==

foreman_qcif="176 144 $videodir/foreman-qcif.yuv"
akiyo_qcif="176 144 $videodir/akiyo-qcif.yuv"
foreman_cif="352 288 $videodir/foreman-cif.yuv"
mobile_D1="720 576 $videodir/mobilecalendar-D1.yuv"
function width()
{
    echo $1 | awk '{ print $1 }'
}
function height()
{
    echo $1 | awk '{ print $2 }'
}
function base()
{
    echo $1 | awk '{ print $3 }'
}

== usage  ==
`width $foreman_cif`