how about a golfed one-liner ;-)

lscfg -vl hdisk*|perl -MList::Pairwise=mapp -00e'print mapp{$a=~/^(hdi
+sk\d+)/&&"$1 ",$b=~/Serial Number[.]+(\w+)/m&&"$1\n"}<>'
[download]

update: List::Pairwise oneliner