#!/usr/bin/perl

use strict;

my @array  = (1, 2, 3, 4, 5);

my @results = map { $_ * 13 } @array;
# @results is (13, 26, 39, 52, 65)