foreach $option ($dataoptions{$columns[$i]})
{
    print "We can deref all like this : @$option\n";
    printf "Deref array elem->0 : %s and elem->1 : %s\n", $option->[0], $option->[1];
}