@shortened_email_addresses =
    map { $_ . '...' }            # add three dots to the end
    map { $_ =~ m/^(\S+@\S{6})/ } # match the first 6 after @
    map { $_->email }             # call the email accessor
      @objects;