#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

run();

sub run
{

    my @arr = (12341,1245125,1525125,125125125);

    my $str = '"';
    foreach my $num (@arr) {
        $str .= "job==$num || ";
    }
    chop $str;
    chop $str;
    chop $str;
    $str .= '"';
    say $str;

    return $str;
}