@a = qw/a b c d e f/;
$data = 'K';

$data = { pop @a => $data } while @a;
%hash = %$data;