...
for my $var(@var) {             # as ikegami said, you're not working with a hash
	if ( $var !~ /\/* .*? \/*/ ) {
		print "\$var, \'$var\', is (something for iphone to fill in) \n";
	} else {
		print "\$var, \'$var\', is (the reverse) \n";
	}
}
...