Select Code to Download

#!/usr/bin/perl -w

use strict;
...
        map { "$foo$bar" => "barfoo" } 1,       # Syntax error?
#                                    ^^^
);