Select Code to Download

#!/usr/bin/perl

...
"Mihir","""Dont know what to write :)"""
"Mukesh","""Kya comment add karun"""
"Tanmay Anjaria","""I - Intelligent S - Smart H - Highly thoughtful A 
+- Antonyms should be taken for all of the above to know Isha :-)) Jus
+t Kidding... Keep Smiling, dear\u2026"""

my %people;
while (<DATA>) {
...

printf qq(%s says "%s"\n), map { $people{$_}[0] } @headers;
# Isha says "Hello!!"