c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my $table = [
  ['Wellbeing Office', 'Pending'],
  ['Library','Pending'], ['Y219','InProgress'],
  ['B201','InProgress'], ['B108','InProgress'],
  ['LAB1','InProgress'], ['C303','InProgress'],
 ];
 ;;
 my %hdata =
   map @{ $_ }[0, 1],
   @$table
   ;
 ;;
 dd \%hdata;
"
{
  B108 => "InProgress",
  B201 => "InProgress",
  C303 => "InProgress",
  LAB1 => "InProgress",
  Library => "Pending",
  "Wellbeing Office" => "Pending",
  Y219 => "InProgress",
}