%vars = map { $_->[0],$_->[rand($#{$_}) + 1] } @{$data};