#!/usr/bin/perl
use strict;
use warnings;

my @all_st = 1..125;
my @store_get;

while (@all_st) {
	push @store_get, join ",", map "'$_'", splice @all_st, 0, 30;
}