use Data::Dumper; warn Dumper( [ $_, $extractor_for{$type} ] );